home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
MacWorld: Complete Mac Interactive
/
Macworld Complete Mac Interactive CD)(1994).iso
/
Software
/
More Shareware⁄Freeware
/
NIH Image 1.55 f (non fpu)
/
Macros
/
Cell Scoring Macros
< prev
next >
Wrap
Text File
|
1993-11-04
|
875b
|
56 lines
{Use this set of macros to manually scoring two
types of cells. Counts are kept in two global
variables and displayed in the Values window.
}
var
UCount, LCount:integer; {Global variables, initially zero}
procedure ShowCellCounts;
begin
ShowMessage('U. Count: ', UCount:1,'\',
'L. Count: ',LCount:1,'\'
'Total : ',UCount+LCount:1);
end;
macro 'Reset Cell Counts';
begin
UCount:=0;
LCount:=0;
ShowCellCounts;
end;
procedure MarkCell(c:string);
{Draws a character in the current foreground color.}
var
x,y:integer;
begin
SetFont('Monaco');
SetFontSize(9);
SetText('Right Justified');
GetMouse(x,y);
MoveTo(x+4,y);
Write(c);
end;
macro 'Score Unlabeled Cell [1]';
begin
UCount:=UCount+1;
MarkCell('*');
ShowCellCounts;
end;
macro 'Score Labeled Cell [2]';
begin
LCount:=LCount+1;
MarkCell('+');
ShowCellCounts;
end;